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ULCG = G COMPLEX*16 Myl fio teat ton Routine 
V/ 3; File: OTSMULCG.MAR 


Std fag! (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ae ® 
® ® 
® ® 
+d e 
® ® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH. LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER © 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. : 
® « 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. ® 
® ® 
* + 
a * 
® ® 
® * 
** * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARRRRARASARAAAALAAAASAALELELE SESE L ESAS ESSERE SERRE SEER EE SER RS RRR ERE RR RRS SS OS 


* FACILITY: Language-independent support Library 
ABSTRACT: 


A routine to provide compiled code support for G COMPLEX*16 
multiplication. 


ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: Steven B. Lionel, CREATION DATE: 13-July-1979 
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eggs * 
1 DEC MTHRTL.SRCJOTSMULCG.MAR; 1 


tw 


.SBTTL DECLARATIONS 
: INCLUDE FILES: 


; EXTERNAL DECLARATIONS: 


-DSABL GBL 3; Prevent undeclared 
3; symbols from — 
3; automatically global. 


: EQUATED SYMBOLS: 
! OWN STORAGE: 


PSECT DECLARATIONS: 


-PSECT _OTSSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 
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LEX*®16 Multiplicati 6=SEP-1984 11:27:42 CMTHRTL.SRCJOTSMULCG.MAR; 1 
7 -SBTTL OTSSMULCG_R3 = G COMPLEX®*16 Multiplication 
; FUNCTIONAL DESCRIPTION: 


This routine calculates the G COMPLEX*16 product of 
two G COMPLEX*16 values. 


CALLING SEQUENCE: 
product.wgc.v = OTSSMULCG_R3 (multiplier.rgc.v, multiplicand.rgc.v) 
INPUT PARAMETERS: 


Sete Se Se Ge Se Ge Se See tes 


multiplier - oo ae passed by VALUE! 
of: 


GC 
Comprised 
a= ; Offset of real part of multiplier 
= 12 ; Offset of imaginary pers of multiplier 
; multiplicand - G COMPLEX*16 passed by VALUE! 
5 Comprised of: 
c = 20 ; Offset of real part of multiplicand 
d = 28 ; Offset of imaginary part of multiplicand 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 


The G COMPLEX*16 product is returned in registers RO through R3! 
This is a violation of the VAX calling standard, but is allowed 
because this is a compiled code support routine. 


SIDE EFFECTS: 


Modifies registers RO-R3! 

Possible error signals are: 
SS$_ROPRAND - Reserved operand 
MTHS_FLOOVEMAT = Fioating overflow 


.ENTRY OTSSMULCG_R3, “M<R4, R5> 
MTHSFLAG_JACKET 


MOVAB G*MTHSSJACKET_HND, (FP) , 
; set handler address to jacket 
: handler 


3; Establish math error handler 


eggs 


0 
4 


2 
4 


oo 


—— ee 
SO OF 
uw 
oO 
Of Of 
Vir Puy > 
HSOOLOO 
Ske eh ek ed 


>> PP 
OO On 


oo 


“ 
~m 
Ot et es te 


Sr WINN AAAI 


MO OONOULSWwN-O”O 


8 
ation Roy m. S P=! :3 AX/VMS o v04-00 
+16 Mult tiplicati 1erseF 1382 9: 33 23 YRTARTE eee SOTSMULCG. MAR; 1 
Complex multiplication is defined as: 


real part = ac-bd 
imaginary part = ad+bc 


MULG3 a(AP), c(AP), RO : RO-R1 = ac 

MULG3 b(AP). d(AP). R4 t R4-R5 = bd 

SUBG2 R4, RO + RO-R1 = ac-bd 

MULGS a(AP), d(AP), R2 t R2-R3 = ad 

MULG3 b(AP). c(AP). R4 + R4=R5 = 

ADDG2 R4, RO + R2-R3 = ad+be 

RET ; Return with product in RO-R3 
END 


E 8 
- G COMPLEX*16 Multiplication Routine 


et Limit was 750 pages. 
pages) of virtual memory were used to buffer the intermediate code. 

0 pages of symbol table space allocated to hold 6 non-local and 0 local symbols. 
2 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

1 page of virtual memory was used to “define 1 macro. 


See ere Seer oe Se eee eee amen ew} 


Macro Library name 
-$255$0UA28: CSYSLIBISTARLET. MLB;2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


OTSSMULCG 16-SEP-1984 01:54:3 
Symbol t able att Pi ¢ 33 23 
A x 
8 = ¢ 
; = 14 
= 

MTHSSJACKET_HND eeeeeeee SI 
OTSSMULCG_R3 00000000 Rc” 1 

Feescenoceeceaera nea + 

! ; _Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 

“ABS 00000000 <( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL 
“OTS$CODE QO000002E ¢ 46.) O1¢ 1.) PIC USR CON REL LCL 
foresee nonsense cce ee see ono h 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization rH OF 000-08 08 + 00301 05 
pounene processing 106 00.00:00.83 00:00:07.31 
Pas 77 00:00:00.60 00:00:04.60 
Syabol table sort 0 00:00:00.00 92:29:90.9 
41 00:00:00.46 ee TS ] 

Symbol table output 00:00:00.01 00:00:00.01 
Psect synopsis output Bo 388 #0 - OF 00:00:00.02 
Cross-reference output 00:00:00.00 B82 88:02 - 88 
Assembler run totals 25 00:00:02.02 00:00:15.7 
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— NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSMULCG/OBJ=OBJ$:OTSMULCG MSRC$:MTHJACKET/UPDATE=(ENHS:MTHJACKET) +MSRC 
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